home *** CD-ROM | disk | FTP | other *** search
/ ETO Development Tools 1 / ETO Development Tools 1.iso / Essentials / Developer Essentials Jul 90 / Programming / MPW Interfaces & Libraries 3.1 / PInterfaces / DisAsmLookup.p < prev    next >
Encoding:
Text File  |  1989-10-13  |  1.7 KB  |  61 lines  |  [TEXT/MPS ]
  1. {
  2. Created: Thursday, September 14, 1989 at 7:54 AM
  3.     DisAsmLookup.p
  4.     Pascal Interface to the Macintosh Libraries
  5.  
  6.     <<< DisAsmLookup - Disassembler Lookup Routines Interface File >>>
  7.     
  8.     Copyright Apple Computer, Inc.     1987-1989
  9.     All rights reserved
  10. }
  11.  
  12.  
  13. {$IFC UNDEFINED UsingIncludes}
  14. {$SETC UsingIncludes := 0}
  15. {$ENDC}
  16.  
  17. {$IFC NOT UsingIncludes}
  18.     UNIT DisAsmLookup;
  19.     INTERFACE
  20. {$ENDC}
  21.  
  22. {$IFC UNDEFINED UsingDisAsmLookup}
  23. {$SETC UsingDisAsmLookup := 1}
  24.  
  25. {$I+}
  26. {$SETC DisAsmLookupIncludes := UsingIncludes}
  27. {$SETC UsingIncludes := 1}
  28. {$IFC UNDEFINED UsingTypes}
  29. {$I $$Shell(PInterfaces)Types.p}
  30. {$ENDC}
  31. {$SETC UsingIncludes := DisAsmLookupIncludes}
  32.  
  33. TYPE
  34.  
  35. LookupRegs = (_A0_,_A1_,_A2_,_A3_,_A4_,_A5_,_A6_,_A7_,_PC_,_ABS_,_TRAP_);
  36.  
  37. DisAsmStr80 = String[80];
  38.  
  39.  
  40.  
  41. PROCEDURE Disassembler(DstAdjust: LONGINT;VAR BytesUsed: INTEGER;FirstByte: UNIV Ptr;
  42.     VAR Opcode: UNIV DisAsmStr80;VAR Operand: UNIV DisAsmStr80;VAR Comment: UNIV DisAsmStr80;
  43.     LookUpProc: UNIV Ptr);
  44. PROCEDURE InitLookup(PCRelProc: UNIV Ptr;JTOffProc: UNIV Ptr;TrapProc: UNIV Ptr;
  45.     AbsAddrProc: UNIV Ptr;IdProc: UNIV Ptr);
  46. PROCEDURE Lookup(PC: UNIV Ptr;BaseReg: LookupRegs;Opnd: UNIV LongInt;VAR S: DisAsmStr80);
  47. PROCEDURE LookupTrapName(TrapWord: UNIV Integer;VAR S: UNIV DisAsmStr80);
  48. PROCEDURE ModifyOperand(VAR Operand: UNIV DisAsmStr80);
  49. FUNCTION validMacsBugSymbol(symStart: UNIV Ptr;limit: UNIV Ptr;symbol: StringPtr): StringPtr; C;
  50. FUNCTION endOfModule(address: UNIV Ptr;limit: UNIV Ptr;symbol: StringPtr;
  51.     VAR nextModule: UNIV Ptr): StringPtr; C;
  52. FUNCTION showMacsBugSymbol(symStart: UNIV Ptr;limit: UNIV Ptr;operand: StringPtr;
  53.     VAR bytesUsed: INTEGER): StringPtr; C;
  54.  
  55. {$ENDC}    { UsingDisAsmLookup }
  56.  
  57. {$IFC NOT UsingIncludes}
  58.     END.
  59. {$ENDC}
  60.  
  61.